home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / c / mc302emb.zip / LIBCF / TOFUNS.ASM < prev   
Assembly Source File  |  1994-03-18  |  651b  |  31 lines
  1. *
  2. * Convert character to UPPER case: toupper(c)
  3. *
  4. toupper    LD    2,S        Get operand
  5.     CMPB    #'a'        Lower case?
  6.     ULT            Compete compare
  7.     SJNZ    ?1        No, ignore
  8.     LD    2,S        Get operand
  9.     CMPB    #'z'        Lower case?
  10.     UGT            Complere compare
  11.     SJNZ    ?1        No, ignore
  12.     LD    2,S        Get operand
  13.     ANDB    #%01011111    Convert to upper
  14.     RET
  15. *
  16. * Convert character to LOWER case: tolower(c)
  17. *
  18. tolower    LD    2,S        Get operand
  19.     CMPB    #'A'        Lower case?
  20.     ULT            Compete compare
  21.     SJNZ    ?1        No, ignore
  22.     LD    2,S        Get operand
  23.     CMPB    #'Z'        Lower case?
  24.     UGT            Complere compare
  25.     SJNZ    ?1        No, ignore
  26.     LD    2,S        Get operand
  27.     ORB    #%00100000    Convert to upper
  28.     RET
  29. ?1    LD    2,S        Get parameter
  30.     RET
  31.